prolog './g012p.ijs'
NB. <:/\ B --------------------------------------------------------------

(0 0 1 1,: 1 1 0 1) -: <:/\ 0 0 1 1 ,: 0 1 0 1
(20$ 1 ) -: <:/\20$1
(0<i.20) -: <:/\20$0

le=: 4 : 'x<:y'

(<:/\"1 -: le/\"1) #:i.16
(<:/\"1 -: le/\"1) #:i.32

(<:/\   -: le/\  ) x=:0<?    13$4
(<:/\   -: le/\  ) x=:0<?7   13$4
(<:/\"1 -: le/\"1) x
(<:/\   -: le/\  ) x=:0<?3 5 13$4
(<:/\"1 -: le/\"1) x
(<:/\"2 -: le/\"2) x

(<:/\   -: le/\  ) x=:0<?    16$4
(<:/\   -: le/\  ) x=:0<?8   16$4
(<:/\"1 -: le/\"1) x
(<:/\   -: le/\  ) x=:0<?2 4 16$4
(<:/\"1 -: le/\"1) x
(<:/\"2 -: le/\"2) x

(,'j')    -: <:/\'j'
(,<'ace') -: <:/\<'ace'
(,'j')    -: <:/\u:'j'
(,<'ace') -: <:/\<u:'ace'
(,'j')    -: <:/\10&u:'j'
(,<'ace') -: <:/\<10&u:'ace'
(, s:@<"0 'j')    -: <:/\ s:@<"0 'j'
(, s:@<"0&.> <'ace') -: <:/\ s:@<"0&.> <'ace'
(, <"0@s: <'ace') -: <:/\ <"0@s: <'ace'

'domain error' -: <:/\ etx 'deipnosophist'
'domain error' -: <:/\ etx ;:'peace in our time'
'domain error' -: <:/\ etx u:'deipnosophist'
'domain error' -: <:/\ etx u:&.> ;:'peace in our time'
'domain error' -: <:/\ etx 10&u:'deipnosophist'
'domain error' -: <:/\ etx 10&u:&.> ;:'peace in our time'
'domain error' -: <:/\ etx s:@<"0 'deipnosophist'
'domain error' -: <:/\ etx s:@<"0&.> ;:'peace in our time'
'domain error' -: <:/\ etx <"0@s: ;:'peace in our time'




epilog''

